home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / misc~1 / 197 / moregfa / lissa.lst < prev    next >
File List  |  1987-12-28  |  134b  |  11 lines
  1. ' gfa basic demo
  2. Graphmode 3
  3. Q=5/3
  4. L=10
  5. Do
  6.   Add I,0.08
  7.   S=Sin(I)*300+320
  8.   C=Cos(I*Q)*180+200
  9.   Pbox S-L,C-L,S+L,C+L
  10. Loop
  11.